home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / faq / kjvcbibl.lha / cbible / rexx / setfkeys.thnkr < prev   
Text File  |  1992-11-17  |  679b  |  37 lines
  1. /* changing the F-keys in Thinker */
  2. options results
  3. trace off
  4. address 'Thinker'
  5.  
  6. input 'Input F-key set 1-2'
  7. fset = result
  8.  
  9. if fset = 1 then fset1()
  10. if fset = 2 then fset2()
  11. exit
  12.  
  13. fset1:
  14. set fkey 1 'window lines 1'
  15. set fkey 2 'window lines 99'
  16. set fkey 3 'window spacing 0'
  17. set fkey 4 'window spacing 1'
  18. set fkey 5 'window clip 1'
  19. set fkey 6 'window clip 10'
  20. set fkey 7 'see-thru enable'
  21. set fkey 8 'see-thru disable'
  22. set fkey 9 'addlabel'
  23. exit
  24.  
  25.  
  26. fset2:
  27. set fkey 1 'type ''    '''
  28. set fkey 2 'type ''        '''
  29. set fkey 3 'clipboard show'
  30. set fkey 4 'searcher'
  31. set fkey 5 'search next'
  32. set fkey 6 'jump2new'
  33. set fkey 7 'jumpnew'
  34. set fkey 8 'putabove'
  35. set fkey 9 'putdown'
  36. exit
  37.